COMMENT ⊗   VALID 00010 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	% This page should match page 2 of MANUAL.MF,
C00003 00003
C00005 00004
C00007 00005	"Figure A5a" % S from IOnian font
C00009 00006
C00011 00007
C00013 00008
C00015 00009
C00017 00010
C00018 ENDMK
C⊗;
% This page should match page 2 of MANUAL.MF,
% because I'm testing stuff to add to that file

def clear_all = clearit; clearxy; pickup standardpen;
proofrulethickness 0;
enddef;

def heavy_dot expr z =
 makelabel.top("",z-(1,0));
 makelabel.top("",z+(1,0));
 makelabel.top("",z-(0,1));
 makelabel.top("",z+(0,1));
 makelabel.top("",z+(1,1)/sqrt2);
 makelabel.top("",z+(1,-1)/sqrt2);
 makelabel.top("",z-(1,1)/sqrt2);
 makelabel.top("",z-(1,-1)/sqrt2);
 enddef;

mode=proof; mode_setup;
standardpen=savepen;
"Figure A5a"; % S from IOnian font
clear_all;
em#:=10pt#; cap#:=7pt#;
thin#:=.8pt#;
thick#:=5/6pt#;
 o#:=1/5pt#;
define_corrected_pixels(o);
%ff:=6/7; % fudge factor to make this the same size as the T in the logo
%em#:=ff*em#;cap#:=ff*cap#;thin#:=ff*thin#;thick#:=ff*thick#;
define_pixels(em,cap);
define_blacker_pixels(thin,thick);
beginchar("S",5/9em#,cap#,0); % "The letter S"; % 0039
show w;
penpos1(thin,70);
penpos2(thin,80);
penpos3(.5[thin,thick],200);
penpos5(.5[thin,thick],210);
penpos6(thin,80);
penpos7(.25[thin,thick],75);
pentaper2(.4,.6); pentaper6(.3,.5);
%x1r=w-.07em; y1r=.95h+o;
x1=x5; y1r=.94h+o;
%x2+.05w=x4=x6-.05w=.5w; y2r=h+o; y4=.54h; y6l=-o;
x2=x4=x6=.5w; y2r=h+o; y4=.54h; y6l=-o;
x3r=.04em; y3=.5[y4,y2];
x5l=w-.03em; y5=.5[y4,y6];
.5[x7l,x7]=.04em; y7l=.1h-o;
path trial; trial=z3{down}..z4..{down}z5;
dz4=direction 1 of trial;
penpos4(thick,argd(dz4)-90);
dz3=dz5=down;
dz2=dz6=left;
penstroke(1,2,3,4,5,6,7);
penlabels(1,2,3,4,5,6);
labels(7l,7r);
labels.lft(7);
endchar;